home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / ARRAY.BAS next >
Encoding:
BASIC Source File  |  1996-02-11  |  533 b   |  18 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *ARRAY_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 5 INDEX=0 
  7. 10 dim A[5 ,5 ,5 ,5 ]
  8. 15 print "One moment, Initializing the array:"
  9. 20 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4 
  10. 60 A[I,J,K,L]=INDEX
  11. 70 INDEX=INDEX+1 
  12. 80 next L:next K:next J:next I
  13. 100 print "Done Initializing the array...." 
  14. 105 print :print "Here is the array:" :print 
  15. 110 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4 
  16. 120 print "a[" ;I;"," ;J;"," ;K;"," ;L;"] = " ;A[I,J,K,L]
  17. 130 next L:next K:next J:next I
  18.